home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / F-French / (c)f1.d64 / orthographe (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  3KB  |  113 lines
  1. 1 REM  ********************************
  2. 2 REM  * ROBERT GUYOT                 *
  3. 3 REM  * 414-2767, CH. INNES          *
  4. 4 REM  * GLOUCESTER, ONT.  K1B 4L4    *
  5. 5 REM  ********************************
  6. 10 POKE53280,10:POKE53281,2:POKE54296,15:PRINT"[158]"
  7. 20 PRINT"[147]         - - - - - - - - - - -"
  8. 30 PRINT"         O R T O G R A P H E"
  9. 40 PRINT"         - - - - - - - - - - -"
  10. 45 FORT=1TO3000:NEXT
  11. 50 PRINT"   "
  12. 55 FORT=1TO500:NEXT
  13. 60 PRINT"   "
  14. 65 FORT=1TO500:NEXT
  15. 70 PRINT"   "
  16. 75 FORT=1TO500:NEXT
  17. 80 PRINT"   "
  18. 85 FORT=1TO500:NEXT
  19. 90 PRINT"   "
  20. 95 FORT=1TO500:NEXT
  21. 100 PRINT"   "
  22. 105 FORT=1TO500:NEXT
  23. 110 PRINT"   "
  24. 115 FORT=1TO1500:NEXT
  25. 120 PRINT"H"
  26. 125 FORT=1TO250:NEXT
  27. 130 PRINT"O"
  28. 135 FORT=1TO250:NEXT
  29. 140 PRINT"G"
  30. 145 FORT=1TO250:NEXT
  31. 150 PRINT"R"
  32. 155 FORT=1TO250:NEXT
  33. 160 PRINT"A"
  34. 165 FORT=1TO250:NEXT
  35. 170 PRINT"P"
  36. 175 FORT=1TO250:NEXT
  37. 180 PRINT"H"
  38. 185 FORT=1TO250:NEXT
  39. 190 PRINT"E"
  40. 200 PRINT""SPC(11)"PROGRAMME CREE PAR"
  41. 210 PRINT""SPC(14)"ROBERT GUYOT":PRINT""SPC(16)"27.5.84"
  42. 300 OPEN2,8,2,"DONNEES.ORT"
  43. 310 DIMA$(20)
  44. 320 DIMB$(20)
  45. 330 DIMR(20)
  46. 340 FORI=0TO20
  47. 350 INPUT#2,A$(I)
  48. 360 INPUT#2,B$(I)
  49. 370 INPUT#2,R(I)
  50. 380 NEXTI
  51. 390 CLOSE2
  52. 400 BEGIN=54272:FORCLEAR=BEGTOBEGIN+23:POKECLEAR,0:NEXT
  53. 410 POKEBE+5,85:POKEBE+6,85:POKEBE+12,85:POKEBE+13,85
  54. 420 POKEBE+4,33:POKEBE+11,17
  55. 425 RESTORE
  56. 430 FORX=1TO8:READH1,L1,H2,L2:POKEBE+1,H1:POKEBE,L1:POKEBE+8,H2:POKEBE+7,L2
  57. 440 IFH1=50THENFORT=1TO200:NEXT
  58. 450 FORT=1TO100:NEXT
  59. 460 DATA25,30,18,209,33,135,25,30,42,62,31,165,50,60,37,162,42,62,31,165,50,60
  60. 470 DATA37,62,50,60,37,62,50,60,37,62
  61. 480 NEXTX
  62. 490 FORCL=BETOBE+23:POKECL,0:NEXT
  63. 495 IFQ=20THENPOKE54296,0:END
  64. 500 Q=Q+1
  65. 510 POKE53280,11:POKE53281,12
  66. 520 PRINT"[147]  O R T H O G R A P H E [146]   QUESTION"Q
  67. 530 PRINT"         LEQUEL EST CORRECT?"
  68. 540 PRINT"           1."
  69. 550 PRINT"           2."
  70. 600 REM **** CHOISIR QUESTIONS ****
  71. 610 R1%=INT((20-K)*RND(0)+1)
  72. 620 PRINT""A$(R1%)
  73. 630 PRINT""B$(R1%)
  74. 635 PRINT"     (FAITES 1[146] OU 2[146], SELON LE CAS)" "
  75. 640 [161]VR$:[139]VR$[178]""[167]640
  76. 650 [139]VR$[179][177]"1"[175]VR$[179][177]"2"[167]640
  77. 660 VR[178][197](VR$)
  78. 670 [153]""[166]9)"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(":[153][166]9)"SPC("[166]18)"SPC("
  79. 680 [153][166]9)"SPC( VOTRE REPONSE:"VR"SPC("
  80. 690 [153][166]9)"SPC( BONNE REPONSE:"R(R1%)"SPC("
  81. 700 [153][166]9)"SPC("[166]18)"SPC("
  82. 710 [153][166]9)"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC("
  83. 711 [139]VR[179][177]R(R1%)[167]716
  84. 712 [129]Y[178]1[164]2:[151]BE[170]1,20:[151]BE[170]5,9:[151]BE[170]6,9:[151]BE[170]4,17
  85. 713 [129]D[178]1[164]40:[130]D:[151]BE[170]4,16:[129]H[178]1[164]200:[130]H:[130]Y
  86. 715 [137]718
  87. 716 [151]BE[170]5,50:[129]X[178]1[164]25:[151]BE[170]1,[187](X)[172]32[170]50:[151]BE[170]4,17:[129]I[178]1[164]10:[130]
  88. 717 [151]BE[170]4,16:[130]X
  89. 718 [129]CL[178]BE[164]BE[170]23:[151]CL,0:[130]
  90. 720 [153]"     TOTAL CUMULATIF:":[153]"     TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  91. 730 [139]VR[178]R(R1%)[167]BR[178]BR[170]1
  92. 740 [153]"     ";BR;"BONNE(S) REPONSE(S) SUR";Q
  93. 750 [153]"   STOP FAITES UNE TOUCHE POUR CONTINUER "
  94. 760 [161]T$:[139]T$[178]""[167]760
  95. 770 [139]Q[178]20[167]900
  96. 780 X$[178]A$(20[171]K)
  97. 790 Y$[178]B$(20[171]K)
  98. 800 Z[178]R(20[171]K)
  99. 810 A$(20[171]K)[178]A$(R1%)
  100. 820 B$(20[171]K)[178]B$(R1%)
  101. 830 R(20[171]K)[178]R(R1%)
  102. 840 A$(R1%)[178]X$
  103. 850 B$(R1%)[178]Y$
  104. 860 R(R1%)[178]Z
  105. 870 K[178]K[170]1
  106. 880 [137] 500
  107. 900 [153]"LOAD   (null) VOTRE RESULTAT:"
  108. 910 [153]"     ";BR;"BONNES REPONSES SUR";Q
  109. 920 [153]"      POUR UNE MOYENNE DE";(BR[173]Q)[172]100;"%"
  110. 930 [153]"                 FWAIT IWAIT NWAIT"
  111. 940 [153]""
  112. 950 [137]400
  113.